home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / DeleteAllNewMsgs.zprx < prev    next >
Text File  |  1995-03-09  |  805b  |  45 lines
  1. /*
  2.     $VER: DeleteAllNewMsgs.zprx 1.0 (30.8.94) by Ralph Seichter
  3.     An ARexx script for "Zodiac's Point".
  4.  
  5.     Deletes all new messages in the ZP database.. I suggest you
  6.     to bind this script to an F-Key, e.g. by adding the entry
  7.  
  8.         F4:SYS:Rexxc/RX ZP:Rexx/DeleteAllNewMsgs.zprx %s
  9.  
  10.     to your "fkeys.zp" file.
  11. */
  12.  
  13.  
  14. PARSE ARG zp
  15. IF zp = '' THEN
  16.     zp = 'ZPoint'
  17.  
  18. ADDRESS VALUE zp
  19. OPTIONS RESULTS
  20.  
  21. whichlevel
  22. IF RESULT ~= 'BOARDMENU' THEN
  23.     boardmenu
  24. jumptoboard number 1
  25.  
  26. killed = 0
  27. more = 1
  28. DO WHILE more
  29.     jumptonew down
  30.     more = RC
  31.     IF more THEN DO
  32.         enterboard
  33.         selectmessage new
  34.         IF RESULT > 0 THEN DO
  35.             killed = killed + RESULT
  36.             delete
  37.         END
  38.         boardmenu
  39.     END
  40. END
  41.  
  42. requestnotify killed || ' messages deleted.'
  43.  
  44. /* EOF */
  45.